home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.A.po
/
FEATURES:BEAGLE
/
UTIL.CITY.SHK
/
UTILITY.CITY
/
COMMAND ZAP.A.bas
< prev
next >
Wrap
BASIC Source File
|
2000-01-01
|
951b
|
12 lines
3 REM <CTRL-M><CTRL-M>===============<CTRL-M>COMMAND ZAP<CTRL-M>BY BEAGLE BROS<CTRL-M>===============
5 S1 = PEEK(768):S2 = PEEK(769):E1 = PEEK(770):E2 = PEEK(771): ONERR GOTO 75
10 HOME : INVERSE : PRINT " COMMAND ZAP ": NORMAL : PRINT : PRINT " BY BERT KERSEY": PRINT " BEAGLE BROS": PRINT : PRINT
20 INPUT "REPLACE ^'S ON LINE NUMBER: ";LI:LS = S1 +S2 *256:EN = E1 +E2 *256
30 LE = PEEK(LS) + PEEK(LS +1) *256:LQ = PEEK(LS +2) + PEEK(LS +3) *256: IF LS >EN OR LQ >LI THEN INVERSE : PRINT " LINE NOT FOUND ": NORMAL : GOTO 70
40 IF LQ < >LI THEN LS = LE: GOTO 30
50 FOR I = LS TO LE: IF PEEK(I) = ASC("^") THEN POKE I,8
60 NEXT : INVERSE : PRINT " DONE ": NORMAL
70 PRINT : INPUT "ANOTHER LINE (Y/N)?";A$: IF A$ = "Y" THEN 80
75 POKE 103,S1: POKE 104,S2: POKE 175,E1: POKE 176,E2: END
80 VTAB PEEK(37): GOTO 20
65535 REM <CTRL-M><CTRL-M>===============<CTRL-M>COMMAND ZAP<CTRL-M>BY BEAGLE BROS<CTRL-M>===============